Option Explicit
Sub E_Sample005()
    'ո E_Data01u@
    Dim myRng As Range
    Dim myCnt As Long
    Set myRng = Columns("C")				'jMӷd
    myCnt = WorksheetFunction.CountIf(myRng, "=*t*")	'jM󪺫w
    MsgBox "]tutvoӦW٪Ʀ" & myCnt & ""
    Set myRng = Nothing					'
End Sub
